      unsigned char pos;
         for(pos = 0; pos < SCR_SZ; pos++)
         {
      STOLBEC = 0xFF;
      STROKA = SCR[pos];
      STOLBEC =  ~(1 << pos);
      
      delay_ms(1);
}